home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / PROGASIC / BASFILES.LZH / TFRMAT.BAS < prev    next >
BASIC Source File  |  1988-09-10  |  992b  |  48 lines
  1. '$INCLUDE:'QBTOOLS.INC'
  2. '+-----------------------------------------------
  3. '|  Time translator to convert TIME$ format
  4. '|  24:mm:ss - to 12:nn with the secs optional
  5. '|
  6. '|  (C) InfoSoft 1985, 1986
  7. '|    ALL RIGHTS RESERVED
  8. '+-----------------------------------------------
  9. '|
  10. '|  l = label staus:  0=OFF; 1=ON (AM/PM)
  11. '|                    ~~~~~
  12. '|  t$ = returned, modified TIME$
  13. '+-----------------------------------------------
  14. SUB timeformat(t$, l%) STATIC
  15.     DEFINT A-Z
  16.     STATIC x$, Hour$, m$, s$, lbl$
  17.  
  18.     lbl$=""
  19.     x$=TIME$
  20.     m$=MID$(x$,4,2)
  21.     s$=RIGHT$(x$,2)
  22.     Hour$=LEFT$(x$,2)
  23.  
  24.       h%=VAL(Hour$)
  25.       IF h%=0 THEN
  26.      Hour$="12"
  27.      t$=" "+H$+":"+M$+" "
  28.  
  29.       ELSEIF h>12 THEN
  30.      Hour$=STR$(h-12)
  31.      t$=Hour$+":"+m$+" "
  32.  
  33.       ELSE
  34.      Hour$=STR$(VAL(Hour$))
  35.      t$=Hour$+":"+m$+" "
  36.       END IF
  37.  
  38.       IF l% THEN
  39.      IF h%<12 THEN
  40.         lbl$="am"
  41.      ELSEIF h% => 12 THEN
  42.         lbl$="pm"
  43.      END IF
  44.       END IF
  45.       t$=t$+lbl$
  46.  
  47. END SUB
  48.